home *** CD-ROM | disk | FTP | other *** search
/ Commodore 64 Scene Diskmags Assortment / Mega_magazine_1_19xx_Venturi.d64 / matematyka v1.0 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  100 lines
  1. 1 poke53280,0:poke53281,0
  2. 2 printchr$(147)"      piotr stachowiak/crazy sneak     "
  3. 4 printchr$(30)"              przedstawia"
  4. 5 printchr$(154)"          program obliczeniowy"
  5. 10 forba=0to15
  6. 15 forbo=0to15
  7. 16 poke53280,ba
  8. 20 poke53281,bo
  9. 40 forx=1to2000:nextx
  10. 50 clr:printchr$(147)
  11. 60 printchr$(158)"           matematyka 1                "
  12. 65 print"              ,"
  13. 70 print"co chcesz robic ?"
  14. 75 print"                       ,               "
  15. 80 print".................dodawac........-d"
  16. 85 print"                         ,             "
  17. 90 print".................odejmowac......-o"
  18. 95 print"                    . ,               "
  19. 100 print".................mnozyc.........-m"
  20. 105 print"                       ,               "
  21. 110 print".................dzielic........-z"
  22. 114 print"                         ,             "
  23. 115 print".................potegowac......-p"
  24. 116 print"                    '         ,        "
  25. 120 print".................pierwiastkowac.-n"
  26. 121 print""
  27. 122 print".................adres autora...-a"
  28. 123 print""
  29. 124 print"           ,"
  30. 130 print"       nacisnij(d,o,m,z,p,n,a)"
  31. 131 print""
  32. 133 print"    ,                           ,"
  33. 134 print"nacisniecie innego przycisku-wyjscie"
  34. 135 print"       '"
  35. 140 geta$:ifa$=""thengoto140
  36. 144 ifa$=chr$(65)thengoto500+chr$(13)
  37. 145 ifa$=chr$(68)thengoto265+chr$(13)
  38. 150 ifa$=chr$(79)thengoto285+chr$(13)
  39. 160 ifa$=chr$(77)thengoto305+chr$(13)
  40. 170 ifa$=chr$(90)thengoto325+chr$(13)
  41. 180 ifa$=chr$(80)thengoto345+chr$(13)
  42. 185 ifa$=chr$(78)thengoto365+chr$(13)
  43. 190 ifa$=chr$(81)thengoto200+chr$(13)
  44. 191 print""
  45. 200 printchr$(147)"kasuje z pamieci listing":new
  46. 210 print"wynikiem jest liczba:"x
  47. 211 print"    ,"
  48. 212 print"nacisnij spacje"
  49. 220 fory=0to1000step1
  50. 240 geta$:ifa$=""then goto240
  51. 250 ifa$<>""thengoto50
  52. 260 :
  53. 265 printchr$(147)
  54. 266 print""
  55. 270 print"d o d a w a n i e ..."
  56. 275 print"":gosub400
  57. 280 x=b+c:goto210
  58. 285 printchr$(147)
  59. 289 print""
  60. 290 print"o d e j m o w a n i e ..."
  61. 295 print"":gosub400
  62. 300 x=b-c:goto210
  63. 305 printchr$(147)
  64. 309 print"      ."
  65. 310 print"m n o z e n i e  ..."
  66. 315 print"":gosub400
  67. 320 x=b*c:goto210
  68. 325 printchr$(147)
  69. 326 print""
  70. 330 print"d z i e l e n i e  ..."
  71. 335 print"":gosub400
  72. 340 x=b/c:goto210
  73. 345 printchr$(147)
  74. 346 print""
  75. 350 print"p o t e g o w a n i e ..."
  76. 355 print"      '":gosub400
  77. 360 x=b^c:goto210
  78. 365 printchr$(147)
  79. 366 print""
  80. 370 print"p i e r w i a s t k o w a n i e  ..."
  81. 375 print"":gosub400
  82. 380 x=b^(1/c):goto210
  83. 390 :
  84. 400 input"liczba1:";b
  85. 410 input"liczba2:";c
  86. 420 return
  87. 500 printchr$(147)
  88. 505 print"piotr stachowiak"
  89. 510 print""
  90. 520 print"al.3-maja 10/10"
  91. 530 print"      ,       "
  92. 540 print"piotrkow tryb. 97-300"
  93. 550 print""
  94. 560 print"tel. 47-33-97"
  95. 570 print""
  96. 575 print"    ,"
  97. 580 print"nacisnij spacje"
  98. 600 geta$:ifa$=""thengoto600
  99. 610 ifa$=chr$(32)thengoto50+chr$(13)
  100.